home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 5 Developer's Kit / vb5 dev kit.iso / dev / mailx6 / _setup.2 / Group3 / OCXINBOX.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-06-08  |  3.8 KB  |  135 lines
  1. VERSION 4.00
  2. Begin VB.Form InboxForm 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "Inbox Messages"
  6.    ClientHeight    =   2970
  7.    ClientLeft      =   1845
  8.    ClientTop       =   3120
  9.    ClientWidth     =   5970
  10.    BeginProperty Font 
  11.       name            =   "MS Sans Serif"
  12.       charset         =   0
  13.       weight          =   700
  14.       size            =   8.25
  15.       underline       =   0   'False
  16.       italic          =   0   'False
  17.       strikethrough   =   0   'False
  18.    EndProperty
  19.    Height          =   3345
  20.    Left            =   1800
  21.    LinkTopic       =   "Form4"
  22.    MDIChild        =   -1  'True
  23.    ScaleHeight     =   2970
  24.    ScaleWidth      =   5970
  25.    Top             =   2790
  26.    Width           =   6060
  27.    Begin VB.CheckBox SortMsg 
  28.       BackColor       =   &H00C0C0C0&
  29.       Caption         =   "Sort Inbox Message"
  30.       Height          =   375
  31.       Left            =   165
  32.       TabIndex        =   5
  33.       Top             =   30
  34.       Width           =   2175
  35.    End
  36.    Begin VB.CheckBox UnreadMsg 
  37.       BackColor       =   &H00C0C0C0&
  38.       Caption         =   "Unread Message Only"
  39.       Height          =   375
  40.       Left            =   2445
  41.       TabIndex        =   4
  42.       Top             =   30
  43.       Width           =   2295
  44.    End
  45.    Begin VB.CommandButton FilterMsg 
  46.       Caption         =   "&Refresh List"
  47.       Height          =   390
  48.       Left            =   3615
  49.       TabIndex        =   3
  50.       Top             =   2520
  51.       Width           =   1815
  52.    End
  53.    Begin VB.CommandButton OpenMsgBtn 
  54.       Caption         =   "&Open Message"
  55.       Height          =   405
  56.       Left            =   1875
  57.       TabIndex        =   2
  58.       Top             =   2520
  59.       Width           =   1695
  60.    End
  61.    Begin VB.CommandButton HideWndBtn 
  62.       Caption         =   "&Hide List"
  63.       Height          =   405
  64.       Left            =   240
  65.       TabIndex        =   1
  66.       Top             =   2520
  67.       Width           =   1575
  68.    End
  69.    Begin VB.ListBox MsgList 
  70.       Height          =   1785
  71.       Left            =   165
  72.       TabIndex        =   0
  73.       Top             =   480
  74.       Width           =   5700
  75.    End
  76.    Begin Mailx16Lib.MMsg MMsg1 
  77.       Left            =   5400
  78.       Top             =   2280
  79.       _Version        =   65542
  80.       _ExtentX        =   900
  81.       _ExtentY        =   900
  82.       _StockProps     =   0
  83.       MarkAsRead      =   0   'False
  84.       DisplayErrors   =   0   'False
  85.       BindString      =   "FormTag1.MSess1"
  86.       FastFetch       =   -1  'True
  87.    End
  88.    Begin Mailx16Lib.MForm MForm1 
  89.       Left            =   2040
  90.       Top             =   2280
  91.       _Version        =   65542
  92.       _ExtentX        =   5530
  93.       _ExtentY        =   500
  94.       _StockProps     =   0
  95.       MXFormName      =   "FormTag2"
  96.    End
  97. Attribute VB_Name = "InboxForm"
  98. Attribute VB_Creatable = False
  99. Attribute VB_Exposed = False
  100. Private Sub FilterMsg_Click()
  101.     MMsg1.UnreadOnly = UnreadMsg
  102.     MMsg1.SortMsg = SortMsg
  103.     RefreshList
  104. End Sub
  105. Private Sub Form_Load()
  106.     RefreshList
  107. End Sub
  108. Private Sub HideWndBtn_Click()
  109.     Unload Me
  110. End Sub
  111. Private Sub MsgList_DblClick()
  112.     OpenMsgBtn_Click
  113. End Sub
  114. Private Sub OpenMsgBtn_Click()
  115.     Index = MsgList.ListIndex
  116.     If Index = -1 Then
  117.         MsgBox "Select a Mail Message to be opened"
  118.     Else
  119.         MMsg1.FetchMsg = Index + 1
  120.         NewMsgWnd MMsg1
  121.     End If
  122. End Sub
  123. Private Sub RefreshList()
  124.     MsgList.Clear
  125.     SessionForm.MousePointer = 11
  126.     MMsg1.Action = ACTION_FINDFIRST
  127.     Do
  128.         If MMsg1.FetchMsg <> 0 Then
  129.             MsgList.AddItem MMsg1.Subject
  130.             MMsg1.Action = ACTION_FINDNEXT
  131.         End If
  132.     Loop While MMsg1.FetchMsg <> 0
  133.     SessionForm.MousePointer = 1
  134. End Sub
  135.